Tiger Disk 71/Tiger_Disk_071_20xx_Tiger-Crew-Disk_de_Side_B.d64/tigerstars _ tz

Commodore BASIC | 2023-02-26 | 2KB | 52 lines

1 for x=51200 to 51409:read y:c=c+y:poke x,y:next x
2 if c<>26232 then print "data error":end
10 rem prepare screen and colours
15 for x=0 to 7:read c(x):next
20 poke53280,0:poke53281,0
25 for y=0 to 24:z=y*40
30 a=int(rnd(1)*16):b=int(rnd(1)*8)
35 for x=0 to 39
40 poke 1024+z+x,a+240:a=a+1+16*(a=15)
45 poke 55296+z+x,c(b):b=b+1+8*(b=7)
50 next x,y
54 :
55 rem start code and change charset
60 sys 51200:poke 53272,28
64 :
65 rem plot foreground
70 print "";tab(4);
75 print "-tiger disk-[146] out of this world!"
80 print
90 goto 90
99 :
100 data120,169,051,133,001,169,000,133
101 data251,133,253,169,208,133,252,169
102 data048,133,254,160,000,177,251,145
103 data253,200,208,249,230,252,230,254
104 data165,254,201,056,208,239,169,055
105 data133,001,032,111,200,169,081,141
106 data020,003,169,200,141,021,003,169
107 data027,141,017,208,169,250,141,018
108 data208,173,025,208,169,001,141,025
109 data208,141,026,208,141,013,220,088
110 data096,238,025,208,162,000,032,152
111 data200,162,002,032,152,200,032,152
112 data200,032,152,200,162,005,032,152
113 data200,032,152,200,076,049,234,162
114 data000,138,157,128,055,232,224,128
115 data208,248,169,001,141,128,055,141
116 data136,055,141,160,055,141,146,055
117 data141,194,055,141,210,055,141,165
118 data055,141,189,055,141,229,055,096
119 data169,000,030,248,055,062,240,055
120 data062,232,055,062,224,055,062,216
121 data055,062,208,055,062,200,055,062
122 data192,055,062,184,055,062,176,055
123 data062,168,055,062,160,055,062,152
124 data055,062,144,055,062,136,055,062
125 data128,055,042,029,248,055,157,248
126 data055,096
127 :
128 rem data for colours
129 data 11,11,12,15,1,1,15,12